home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
kboot20.d64
/
proc.use'extend
< prev
next >
Wrap
Text File
|
2009-01-23
|
1KB
|
37 lines
0010 //
0020 ╨╥╧├ DRAW'BOX(ROW,COL,WIDTH,HIGHTH) ├╠╧╙┼─
0030 ─╔═ OFFSET#(4), LONG#(4)
0040 OFFSET#(1):=1; OFFSET#(2):=40
0050 OFFSET#(3):=-1; OFFSET#(4):=-40
0060 LONG#(1):=WIDTH; LONG#(2):=HIGHTH-1
0070 LONG#(3):=WIDTH-1; LONG#(4):=HIGHTH-2
0080 ADDR:=1024+(ROW-1)*40+(COL-1)-1
0090 COLOR:=3
0100 ╞╧╥ SIDE:=1 ╘╧ 4 ─╧
0110 ╞╧╥ L:=1 ╘╧ LONG#(SIDE) ─╧
0120 ADDR:+OFFSET#(SIDE)
0130 ╨╧╦┼ ADDR,32+64*COLOR
0140 COLOR:-1
0150 ╔╞ COLOR<1 ╘╚┼╬ COLOR:=3
0160 ┼╬─╞╧╥ L
0170 ┼╬─╞╧╥ SIDE
0180 ┼╬─╨╥╧├ DRAW'BOX
0190 //
0200 ╨╥╧├ ROTATE'EXTEND ├╠╧╙┼─
0210 T:=╨┼┼╦(53282)
0220 ╞╧╥ X#:=0 ╘╧ 1 ─╧ ╨╧╦┼ 53282+X#,╨┼┼╦(53282+X#+1)
0230 ╨╧╦┼ 53284,T
0240 ┼╬─╨╥╧├ ROTATE'EXTEND
0250 //
0260 ╨╥╧├ EXTENDED'COLOR(STATE) ├╠╧╙┼─
0270 OLD:=╨┼┼╦(53265) ═╧─ 64
0280 ╔╞ STATE ╘╚┼╬ OLD:+64
0290 ╨╧╦┼ 53265,OLD
0300 ┼╬─╨╥╧├ EXTENDED'COLOR
0310 //
0320 ╨╥╧├ SET'EXTENDED'COLORS(N1,N2,N3) ├╠╧╙┼─
0330 ╨╧╦┼ 53282,N1
0340 ╨╧╦┼ 53283,N2
0350 ╨╧╦┼ 53284,N3
0360 ┼╬─╨╥╧├ SET'EXTENDED'COLORS